home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / PIG.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  39.4 KB  |  1,813 lines
  1. 10  SCREEN 1,0:COLOR 1,15:KEY OFF:CLS
  2. 15  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 20  LOCATE 12,1:PRINT FNCEN$("PIG",40)
  4. 25  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 30  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  6. 35  PRINT FNCEN$("All Rights Reserved",40)
  7. 40  FOR K=1 TO 1500:NEXT K
  8. 45  CLS
  9. 50                             '***Zapsound***
  10. 55  FOR A=0 TO 20
  11. 60  OUT 66,A:OUT 66,A
  12. 65  OUT 97,(INP(97) OR 3)
  13. 70  NEXT A
  14. 75  SOUND 37,0
  15. 80  FOR K=1 TO 250:NEXT K
  16. 85                              '***End Zapsound***
  17. 90  LINE(105,45)-(215,145),3,B
  18. 95  GOSUB 30000         '** Textpad **
  19. 100  PRINT FNCEN$("PIG begins with three simple folds.",40)
  20. 105  FOR K=1 TO 1500:NEXT K
  21. 110  FOR H=105 TO 215 STEP 2
  22. 115  PSET(H,95)
  23. 120  NEXT H
  24. 125  FOR K=1 TO 250:NEXT K
  25. 130  FOR V=45 TO 95
  26. 135  LINE(105,V)-(215,V),3
  27. 140  LINE(105,V)-(215,V),0
  28. 145  NEXT V
  29. 150  FOR V=95 TO 145
  30. 155  LINE(105,V)-(215,V),3
  31. 160  NEXT V
  32. 165  FOR K=1 TO 250:NEXT K
  33. 170  FOR V=145 TO 95 STEP -1
  34. 175  LINE(105,V)-(215,V),0
  35. 180  LINE(105,145)-(215,145),3
  36. 185  PSET(105,V),3
  37. 190  PSET(215,V),3
  38. 195  NEXT V
  39. 200  FOR H=105 TO 215 STEP 2
  40. 205  PSET(H,95),3
  41. 210  NEXT H
  42. 215  FOR V=94 TO 45 STEP -1
  43. 220  LINE(105,V)-(215,V),3
  44. 225  LINE(105,V)-(215,V),0
  45. 230  PSET(105,V),3
  46. 235  PSET(215,V),3
  47. 240  NEXT V
  48. 245  LINE(105,45)-(215,45),3
  49. 250  FOR K=1 TO 750:NEXT K
  50. 255  FOR H=105 TO 215 STEP 2
  51. 260  PSET(H,70),3
  52. 265  NEXT H
  53. 270  FOR K=1 TO 250:NEXT K
  54. 275  FOR V=45 TO 70
  55. 280  LINE(105,V)-(215,V),3
  56. 285  LINE(105,V)-(215,V),0
  57. 290  NEXT V
  58. 295  FOR V=70 TO 95
  59. 300  LINE(105,V)-(215,V),3
  60. 305  NEXT V
  61. 310  FOR K=1 TO 250:NEXT K
  62. 315  FOR H=105 TO 215 STEP 2
  63. 320  PSET(H,120)
  64. 325  NEXT H
  65. 330  FOR K=1 TO 250:NEXT K
  66. 335  FOR V=145 TO 120 STEP -1
  67. 340  LINE(105,V)-(215,V),3
  68. 345  LINE(105,V)-(215,V),0
  69. 350  NEXT V
  70. 355  FOR V=120 TO 95 STEP -1
  71. 360  LINE(105,V)-(215,V),3
  72. 365  NEXT V
  73. 370  LINE(105,95)-(215,95),0
  74. 375  FOR K=1 TO 750:NEXT K
  75. 380  GOSUB 30000         '** Textpad **
  76. 385  PRINT FNCEN$("There!  Now, I'll wait for you.",40)
  77. 390  FOR K=1 TO 1500:NEXT K
  78. 395  GOSUB 30000       '*** Textpad ***
  79. 400  PRINT FNCEN$("To see those folds again, press <R>.",40)
  80. 405  FOR K=1 TO 1000:NEXT K
  81. 410  PRINT FNCEN$("To continue, press <C>.",40)
  82. 415  A$=INKEY$:IF A$="" GOTO 415
  83. 420  IF A$="r" OR A$="R" GOTO 435
  84. 425  IF A$="c" OR A$="C" GOTO 490
  85. 430  GOTO 395
  86. 435  FOR A=0 TO 20
  87. 440  OUT 66,A:OUT 66,A
  88. 445  OUT 97,(INP(97) OR 3)
  89. 450  NEXT A
  90. 455  SOUND 37,0
  91. 460  CLS
  92. 465  LINE(105,45)-(215,145),3,B
  93. 470  GOSUB 30000   '** Textpad **
  94. 475  PRINT FNCEN$("* Review *",40)
  95. 480  FOR K=1 TO 1500:NEXT K
  96. 485  GOTO 110
  97. 490  GOSUB 30000         '** Textpad **
  98. 495  PRINT FNCEN$("We next fold and backfold these corners",40)
  99. 500  FOR K=1 TO 1500:NEXT K
  100. 505  FOR K=1 TO 5
  101. 510  PSET(215,62):DRAW"E5L4U7L2D7L4F5"
  102. 515  PAINT(215,56)
  103. 520  PSET(215,128):DRAW"G5R4D7R2U7R4H5"
  104. 525  PAINT(215,134)
  105. 530  PSET(105,62):DRAW"E5L4U7L2D7L4F5"
  106. 535  PAINT(105,56)
  107. 540  PSET(105,128):DRAW"G5R4D7R2U7R4H5"
  108. 545  PAINT(105,134)
  109. 550  CIRCLE(215,56),7,0
  110. 555  PAINT(215,56),0
  111. 560  CIRCLE(215,134),7,0
  112. 565  PAINT(215,134),0
  113. 570  CIRCLE(105,56),7,0
  114. 575  PAINT(105,56),0
  115. 580  CIRCLE(105,134),7,0
  116. 585  PAINT(105,134),0
  117. 590  NEXT K
  118. 595  FOR K=1 TO 750:NEXT K
  119. 600  GOSUB 30000         '** Textpad **
  120. 605  PRINT FNCEN$("over to these points",40)
  121. 610  FOR K=1 TO 750:NEXT K
  122. 615  FOR K=1 TO 15
  123. 620  CIRCLE(190,95),5,0
  124. 625  LINE(188,95)-(192,95),0
  125. 630  LINE(190,93)-(190,97),0
  126. 635  CIRCLE(130,95),5,0
  127. 640  LINE(128,95)-(132,95),0
  128. 645  LINE(130,93)-(130,97),0
  129. 650  'FOR M=1 TO 25:NEXT M
  130. 655  CIRCLE(190,95),5,3
  131. 660  LINE(188,95)-(192,95),3
  132. 665  LINE(190,93)-(190,97),3
  133. 670  CIRCLE(130,95),5,3
  134. 675  LINE(128,95)-(132,95),3
  135. 680  LINE(130,93)-(130,97),3
  136. 685  NEXT K
  137. 690  LINE(185,95)-(195,95),0
  138. 695  LINE(125,95)-(135,95),0
  139. 700  FOR K=1 TO 750:NEXT K
  140. 705  GOSUB 30000         '** Textpad **
  141. 710  PRINT FNCEN$("across these lines,",40)
  142. 715  FOR K=1 TO 750:NEXT K
  143. 720  LINE(190,70)-(215,95),0
  144. 725  LINE-(190,120),0
  145. 730  LINE(130,70)-(105,95),0
  146. 735  LINE-(130,120),0
  147. 740  FOR K=1 TO 750:NEXT K
  148. 745  GOSUB 30000         '** Textpad **
  149. 750  PRINT FNCEN$("SO!",40)
  150. 755  FOR K=1 TO 750:NEXT K
  151. 760  FOR Q=0 TO 12
  152. 765  LINE(190,70)-(215-Q,70+Q)
  153. 770  LINE-(215,95)
  154. 775  LINE(190,70)-(215-Q,70+Q),0
  155. 780  LINE-(215,95),0
  156. 785  LINE(190,70)-(215,70+Q),0
  157. 790  LINE(215,95)-(215-Q,70),0
  158. 795  LINE(191,70)-(216-Q,69+Q),0
  159. 800  LINE-(216,95),0
  160. 805  NEXT Q
  161. 810  LINE(202,80)-(205,83),0,BF
  162. 815  LINE(203,75)-(210,82),0,BF
  163. 820  PSET(202,83),3
  164. 825  LINE(190,70)-(215,95),3
  165. 830  FOR Q=0 TO 12
  166. 835  LINE(190,70)-(203-Q,83+Q),0
  167. 840  LINE-(215,95),0
  168. 845  LINE(190,70)-(203-Q,83+Q),3
  169. 850  LINE-(215,95),3
  170. 855  LINE(190,95)-(215,95),0
  171. 860  NEXT Q
  172. 865  LINE(190,70)-(190,95),0
  173. 870  FOR K=1 TO 750:NEXT K
  174. 875  FOR Q=0 TO 12
  175. 880  LINE(190,70)-(190+Q,95-Q),0
  176. 885  LINE-(215,95),0
  177. 890  LINE(190,70)-(190+Q,95-Q),3
  178. 895  LINE-(215,95),3
  179. 900  LINE(190,95)-(215,95),0
  180. 905  LINE(190,70)-(215,95),0
  181. 910  NEXT Q
  182. 915  FOR Q=0 TO 13
  183. 920  LINE(190,70)-(203+Q,83-Q),3
  184. 925  LINE-(215,95),3
  185. 930  LINE(190,70)-(215,95),0
  186. 935  LINE(190,70)-(215,95-Q)
  187. 940  LINE(215,95)-(190+Q,70)
  188. 945  NEXT Q
  189. 950  LINE(190,70)-(215,94),3,BF
  190. 955  LINE(216,70)-(216,195),0
  191. 960  LINE(190,70)-(215,95),0
  192. 965  FOR K=1 TO 750:NEXT K
  193. 970  FOR Q=0 TO 12
  194. 975  LINE(190,120)-(215-Q,120-Q)
  195. 980  LINE-(215,95)
  196. 985  LINE(190,120)-(215-Q,120-Q),0
  197. 990  LINE-(215,95),0
  198. 995  LINE(190,120)-(215,120-Q),0
  199. 1000  LINE(215,95)-(215-Q,120),0
  200. 1005  LINE(191,120)-(216-Q,121-Q),0
  201. 1010  LINE-(216,95),0
  202. 1015  NEXT Q
  203. 1020  LINE(202,110)-(205,107),0,BF
  204. 1025  LINE(203,115)-(210,108),0,BF
  205. 1030  PSET(202,107),3
  206. 1035  LINE(190,120)-(215,95),3
  207. 1040  FOR Q=0 TO 12
  208. 1045  LINE(190,120)-(203-Q,107-Q),0
  209. 1050  LINE-(215,95),0
  210. 1055  LINE(190,120)-(203-Q,107-Q),3
  211. 1060  LINE-(215,95),3
  212. 1065  LINE(190,95)-(215,95),0
  213. 1070  NEXT Q
  214. 1075  LINE(190,120)-(190,95),0
  215. 1080  LINE-(215,95),0
  216. 1085  FOR K=1 TO 750:NEXT K
  217. 1090  FOR Q=0 TO 12
  218. 1095  LINE(190,120)-(190+Q,95+Q),0
  219. 1100  LINE-(215,95),0
  220. 1105  LINE(190,120)-(190+Q,95+Q),3
  221. 1110  LINE-(215,95),3
  222. 1115  LINE(190,95)-(215,95),0
  223. 1120  LINE(190,120)-(215,95),0
  224. 1125  NEXT Q
  225. 1130  FOR Q=0 TO 13
  226. 1135  LINE(190,120)-(203+Q,107+Q),3
  227. 1140  LINE-(215,95),3
  228. 1145  LINE(190,120)-(215,95),0
  229. 1150  LINE(215,95)-(190+Q,120)
  230. 1155  LINE(190,120)-(215,95+Q)
  231. 1160  NEXT Q
  232. 1165  LINE(190,120)-(215,96),3,BF
  233. 1170  LINE(216,120)-(216,95),0
  234. 1175  LINE(190,120)-(215,95),0
  235. 1180  LINE(130,70)-(105,95),0
  236. 1185  LINE-(130,120),0
  237. 1190  FOR K=1 TO 750:NEXT K
  238. 1195  FOR Q=0 TO 12
  239. 1200  LINE(130,70)-(105+Q,70+Q)
  240. 1205  LINE-(105,95)
  241. 1210  LINE(130,70)-(105+Q,70+Q),0
  242. 1215  LINE-(105,95),0
  243. 1220  LINE(130,70)-(105,70+Q),0
  244. 1225  LINE(105,95)-(105+Q,70),0
  245. 1230  LINE(129,70)-(104+Q,69+Q),0
  246. 1235  LINE-(104,95),0
  247. 1240  NEXT Q
  248. 1245  LINE(118,80)-(115,83),0,BF
  249. 1250  LINE(117,75)-(100,82),0,BF
  250. 1255  PSET(118,83),3
  251. 1260  LINE(130,70)-(105,95),3
  252. 1265  FOR Q=0 TO 12
  253. 1270  LINE(130,70)-(117+Q,83+Q),0
  254. 1275  LINE-(105,95),0
  255. 1280  LINE(130,70)-(117+Q,83+Q),3
  256. 1285  LINE-(105,95),3
  257. 1290  LINE(105,95)-(130,95),0
  258. 1295  NEXT Q
  259. 1300  LINE(130,70)-(130,95),0
  260. 1305  LINE-(105,95),0
  261. 1310  FOR K=1 TO 750:NEXT K
  262. 1315  FOR Q=0 TO 12
  263. 1320  LINE(130,70)-(130-Q,95-Q),0
  264. 1325  LINE-(105,95),0
  265. 1330  LINE(130,70)-(130-Q,95-Q),3
  266. 1335  LINE-(105,95),3
  267. 1340  LINE(130,95)-(105,95),0
  268. 1345  LINE(130,70)-(105,95),0
  269. 1350  NEXT Q
  270. 1355  FOR Q=0 TO 13
  271. 1360  LINE(130,70)-(117-Q,83-Q),3
  272. 1365  LINE-(105,95),3
  273. 1370  LINE(130,70)-(105,95),0
  274. 1375  LINE(130,70)-(105,95-Q)
  275. 1380  LINE(105,95)-(130-Q,70)
  276. 1385  NEXT Q
  277. 1390  LINE(130,70)-(105,94),3,BF
  278. 1395  LINE(104,70)-(104,95),0
  279. 1400  LINE(130,70)-(105,95),0
  280. 1405  FOR K=1 TO 750:NEXT K
  281. 1410  FOR Q=0 TO 12
  282. 1415  LINE(130,120)-(105+Q,120-Q)
  283. 1420  LINE-(105,95)
  284. 1425  LINE(130,120)-(105+Q,120-Q),0
  285. 1430  LINE-(105,95),0
  286. 1435  LINE(130,120)-(105,120-Q),0
  287. 1440  LINE(105,95)-(105+Q,120),0
  288. 1445  LINE(129,120)-(104+Q,121-Q),0
  289. 1450  LINE-(104,95),0
  290. 1455  NEXT Q
  291. 1460  LINE(115,107)-(118,110),0
  292. 1465  LINE(113,108)-(117,112),0,BF
  293. 1470  PSET(100,107),0
  294. 1475  LINE(130,120)-(105,95),3
  295. 1480  FOR Q=0 TO 12
  296. 1485  LINE(130,120)-(117+Q,107-Q),0
  297. 1490  LINE-(105,95),0
  298. 1495  LINE(130,120)-(117+Q,107-Q),3
  299. 1500  LINE-(105,95),3
  300. 1505  LINE(130,95)-(105,95),0
  301. 1510  NEXT Q
  302. 1515  LINE(130,120)-(130,95),0
  303. 1520  LINE-(105,95),0
  304. 1525  FOR K=1 TO 750:NEXT K
  305. 1530  FOR Q=0 TO 12
  306. 1535  LINE(130,120)-(130-Q,95+Q),0
  307. 1540  LINE-(105,95),0
  308. 1545  LINE(130,120)-(130-Q,95+Q),3
  309. 1550  LINE-(105,95),3
  310. 1555  LINE(130,95)-(105,95),0
  311. 1560  LINE(130,120)-(105,95),0
  312. 1565  NEXT Q
  313. 1570  FOR Q=0 TO 13
  314. 1575  LINE(130,120)-(117-Q,107+Q),3
  315. 1580  LINE-(105,95),3
  316. 1585  LINE(130,120)-(105,95),0
  317. 1590  LINE(105,95)-(130-Q,120)
  318. 1595  LINE(130,120)-(105,95+Q)
  319. 1600  NEXT Q
  320. 1605  LINE(130,120)-(105,96),3,BF
  321. 1610  LINE(104,120)-(104,95),0
  322. 1615  LINE(130,120)-(105,95),0
  323. 1620  FOR K=1 TO 750:NEXT K
  324. 1625  GOSUB 30000   '*** <Textpad> ***
  325. 1630  PRINT FNCEN$("Your turn to fold and backfold.",40)
  326. 1635  FOR K=1 TO 1500:NEXT K
  327. 1640  GOSUB 30000       '*** Textpad ***
  328. 1645  PRINT FNCEN$("To review those folds, press <R>.",40)
  329. 1650  FOR K=1 TO 1000:NEXT K
  330. 1655  PRINT FNCEN$("To continue, press <C>.",40)
  331. 1660  A$=INKEY$:IF A$="" GOTO 1660
  332. 1665  IF A$="r" OR A$="R" GOTO 1680
  333. 1670  IF A$="c" OR A$="C" GOTO 1750
  334. 1675  GOTO 1640
  335. 1680  FOR A=0 TO 20
  336. 1685  OUT 66,A:OUT 66,A
  337. 1690  OUT 97,(INP(97) OR 3)
  338. 1695  NEXT A
  339. 1700  SOUND 37,0
  340. 1705  LINE(190,70)-(215,95)
  341. 1710  LINE-(190,120)
  342. 1715  LINE(130,70)-(105,95)
  343. 1720  LINE-(130,120)
  344. 1725  LINE(105,95)-(215,95),0
  345. 1730  GOSUB 30000   '** Textpad **
  346. 1735  PRINT FNCEN$("* Review *",40)
  347. 1740  FOR K=1 TO 1500:NEXT K
  348. 1745  GOTO 490
  349. 1750  GOSUB 30000         '** Textpad **
  350. 1755  PRINT FNCEN$("Next, we fold this edge",40)
  351. 1760  FOR K=1 TO 750:NEXT K
  352. 1765                              '*** arrow left ***
  353. 1770  PSET(223,95):DRAW"E5D4R7D2L7D4H5"
  354. 1775  PAINT(229,95)
  355. 1780  FOR K=1 TO 25
  356. 1785  LINE(215,70)-(215,120),0
  357. 1790  FOR M=1 TO 25:NEXT M
  358. 1795  LINE(215,70)-(215,120)
  359. 1800  NEXT K
  360. 1805  PSET(215,95),0
  361. 1810  FOR K=1 TO 750:NEXT K
  362. 1815  CIRCLE(229,95),7,0
  363. 1820  PAINT(229,95),0
  364. 1825  FOR K=1 TO 750:NEXT K
  365. 1830  GOSUB 30000         '** Textpad **
  366. 1835  PRINT FNCEN$("over across this line,",40)
  367. 1840  FOR K=1 TO 750:NEXT K
  368. 1845  FOR V=70 TO 120 STEP 2
  369. 1850  PSET(190,V),0
  370. 1855  NEXT V
  371. 1860  FOR K=1 TO 750:NEXT K
  372. 1865  GOSUB 30000         '** Textpad **
  373. 1870  PRINT FNCEN$("THUS!",40)
  374. 1875  FOR K=1 TO 750:NEXT K
  375. 1880  FOR H=215 TO 190 STEP -1
  376. 1885  LINE(190,70)-(H,95),0
  377. 1890  LINE-(190,120),0
  378. 1895  LINE(190,70)-(H,95),3
  379. 1900  LINE-(190,120),3
  380. 1905  LINE(H,70)-(H,120),0
  381. 1910  FOR M=1 TO 20:NEXT M
  382. 1915  NEXT H
  383. 1920  FOR H=190 TO 165 STEP -1
  384. 1925  LINE(H,70)-(H,120),0
  385. 1930  LINE(H,70)-(H,120),3
  386. 1935  FOR M=1 TO 20:NEXT M
  387. 1940  NEXT H
  388. 1945  LINE(165,70)-(165,120),0
  389. 1950  FOR K=1 TO 750:NEXT K
  390. 1955  GOSUB 30000         '** Textpad **
  391. 1960  PRINT FNCEN$("and return!",40)
  392. 1965  FOR K=1 TO 750:NEXT K
  393. 1970  FOR H=165 TO 190
  394. 1975  LINE(H,70)-(H,120),0
  395. 1980  LINE(H,70)-(H,120),3
  396. 1985  FOR M=1 TO 20:NEXT M
  397. 1990  PSET(H,95),0
  398. 1995  NEXT H
  399. 2000  FOR H=190 TO 215
  400. 2005  LINE(H,70)-(H,120),3
  401. 2010  LINE(190,70)-(H,95),0
  402. 2015  LINE-(190,120),0
  403. 2020  LINE(190,70)-(H,95),3
  404. 2025  LINE-(190,120),3
  405. 2030  FOR V=70 TO 120 STEP 2
  406. 2035  PSET(187,V),0
  407. 2040  NEXT V
  408. 2045  PSET(H,95),0
  409. 2050  NEXT H
  410. 2055  LINE(187,70)-(215,95),0
  411. 2060  LINE-(187,120),0
  412. 2065  FOR K=1 TO 750:NEXT K
  413. 2070  GOSUB 30000         '** Textpad **
  414. 2075  PRINT FNCEN$("and repeat on the other side.",40)
  415. 2080  FOR V=70 TO 120 STEP 2
  416. 2085  PSET(130,V),0
  417. 2090  NEXT V
  418. 2095  FOR K=1 TO 750:NEXT K
  419. 2100  FOR H=105 TO 130
  420. 2105  LINE(130,70)-(H,95),0
  421. 2110  LINE-(130,120),0
  422. 2115  LINE(130,70)-(H,95),3
  423. 2120  LINE-(130,120),3
  424. 2125  LINE(H,70)-(H,120),0
  425. 2130  FOR M=1 TO 20:NEXT M
  426. 2135  NEXT H
  427. 2140  FOR H=130 TO 155
  428. 2145  LINE(H,70)-(H,120),0
  429. 2150  LINE(H,70)-(H,120),3
  430. 2155  FOR M=1 TO 20:NEXT M
  431. 2160  NEXT H
  432. 2165  LINE(155,70)-(155,120),0
  433. 2170  FOR K=1 TO 750:NEXT K
  434. 2175  LINE(155,70)-(155,120),0
  435. 2180  FOR H=155 TO 130 STEP -1
  436. 2185  LINE(H,70)-(H,120),0
  437. 2190  LINE(H,70)-(H,120),3
  438. 2195  FOR M=1 TO 20:NEXT M
  439. 2200  PSET(H,95),0
  440. 2205  NEXT H
  441. 2210  FOR H=130 TO 105 STEP -1
  442. 2215  LINE(H,70)-(H,120),3
  443. 2220  LINE(130,70)-(H,95),0
  444. 2225  LINE-(130,120),0
  445. 2230  LINE(130,70)-(H,95),3
  446. 2235  LINE-(130,120),3
  447. 2240  FOR V=70 TO 120 STEP 2
  448. 2245  PSET(133,V),0
  449. 2250  NEXT V
  450. 2255  PSET(H,95),0
  451. 2260  NEXT H
  452. 2265  LINE(133,70)-(105,95),0
  453. 2270  LINE-(133,120),0
  454. 2275  FOR K=1 TO 750:NEXT K
  455. 2280  GOSUB 30000       '*** Textpad ***
  456. 2285  PRINT FNCEN$("To review those folds, press <R>.",40)
  457. 2290  FOR K=1 TO 1000:NEXT K
  458. 2295  PRINT FNCEN$("To continue, press <C>.",40)
  459. 2300  A$=INKEY$:IF A$="" GOTO 2300
  460. 2305  IF A$="r" OR A$="R" GOTO 2320
  461. 2310  IF A$="c" OR A$="C" GOTO 2420
  462. 2315  GOTO 2280
  463. 2320  FOR A=0 TO 20
  464. 2325  OUT 66,A:OUT 66,A
  465. 2330  OUT 97,(INP(97) OR 3)
  466. 2335  NEXT A
  467. 2340  SOUND 37,0
  468. 2345  LINE(187,70)-(187,120)
  469. 2350  LINE-(215,95)
  470. 2355  LINE-(187,70)
  471. 2360  LINE(133,70)-(133,120)
  472. 2365  LINE-(105,95)
  473. 2370  LINE-(133,70)
  474. 2375  LINE(105,95)-(215,95),0
  475. 2380  LINE(190,70)-(215,95),0
  476. 2385  LINE-(190,120),0
  477. 2390  LINE(130,70)-(105,95),0
  478. 2395  LINE-(130,120),0
  479. 2400  GOSUB 30000   '** Textpad **
  480. 2405  PRINT FNCEN$("* Review *",40)
  481. 2410  FOR K=1 TO 1500:NEXT K
  482. 2415  GOTO 1750
  483. 2420  GOSUB 30000         '** Textpad **
  484. 2425  PRINT FNCEN$("We now meet a new fold",40)
  485. 2430  FOR K=1 TO 1500:NEXT K
  486. 2435  GOSUB 30000         '** Textpad **
  487. 2440  PRINT FNCEN$("The SQUASH FOLD",40)
  488. 2445  FOR K=1 TO 1500:NEXT K
  489. 2450  GOSUB 30000         '** Textpad **
  490. 2455  PRINT FNCEN$("In this fold, this part of our figure",40)
  491. 2460  FOR K=1 TO 1500:NEXT K
  492. 2465  FOR K=1 TO 15
  493. 2470  LINE(187,70)-(215,70),0
  494. 2475  LINE-(215,95),0
  495. 2480  LINE-(187,70),0
  496. 2485  FOR M=1 TO 25:NEXT M
  497. 2490  LINE(187,70)-(215,70),3
  498. 2495  LINE-(215,95),3
  499. 2500  LINE-(187,70),3
  500. 2505  NEXT K
  501. 2510  LINE(187,70)-(215,95),0
  502. 2515  GOSUB 30000         '** Textpad **
  503. 2520  PRINT FNCEN$("gets squashed into this figure.",40)
  504. 2525  FOR K=1 TO 1500:NEXT K
  505. 2530  FOR A=0 TO 20
  506. 2535  OUT 66,A:OUT 66,A
  507. 2540  OUT 97,(INP(97) OR 3)
  508. 2545  NEXT A
  509. 2550  SOUND 37,0
  510. 2555  LINE(187,70)-(215,70),0
  511. 2560  LINE-(215,95),0
  512. 2565  LINE-(187,70),0
  513. 2570  PAINT(205,80),0
  514. 2575  LINE(187,70)-(160,95),0
  515. 2580  LINE-(215,95),0
  516. 2585  FOR V=70 TO 95 STEP 2
  517. 2590  PSET(187,V),0
  518. 2595  NEXT V
  519. 2600  FOR K=1 TO 150:NEXT K
  520. 2605  FOR K=1 TO 10
  521. 2610  LINE(187,70)-(160,95)
  522. 2615  LINE-(215,95)
  523. 2620  LINE-(187,70)
  524. 2625  LINE-(187,95)
  525. 2630  FOR M=1 TO 25:NEXT M
  526. 2635  LINE(187,70)-(160,95),0
  527. 2640  LINE-(215,95),0
  528. 2645  LINE-(187,70),0
  529. 2650  LINE-(187,95),0
  530. 2655  NEXT K
  531. 2660  LINE(187,70)-(187,95),3
  532. 2665  FOR V=70 TO 95 STEP 2
  533. 2670  PSET(187,V),0
  534. 2675  NEXT V
  535. 2680  GOSUB 30000         '** Textpad **
  536. 2685  PRINT FNCEN$("Let's analyze that transformation",40)
  537. 2690  FOR K=1 TO 1500:NEXT K
  538. 2695  GOSUB 30000         '** Textpad **
  539. 2700  PRINT FNCEN$("in a bit more detail.",40)
  540. 2705  FOR K=1 TO 1500:NEXT K
  541. 2710  GOSUB 30000         '** Textpad **
  542. 2715  LINE(160,95)-(187,70),3
  543. 2720  FOR A=0 TO 20
  544. 2725  OUT 66,A:OUT 66,A
  545. 2730  OUT 97,(INP(97) OR 3)
  546. 2735  NEXT A
  547. 2740  SOUND 37,0
  548. 2745  LINE-(187,95),3
  549. 2750  FOR V=70 TO 95 STEP 2
  550. 2755  PSET(187,V),0
  551. 2760  NEXT V
  552. 2765  LINE(187,70)-(215,70),3
  553. 2770  LINE-(215,95),3
  554. 2775  PAINT(205,85),3
  555. 2780  LINE(187,70)-(215,95),0
  556. 2785  LINE-(187,120),0
  557. 2790  LINE(160,95)-(215,95),0
  558. 2795  FOR K=1 TO 250:NEXT K
  559. 2800  GOSUB 30000         '** Textpad **
  560. 2805  PRINT FNCEN$("Remember, we have two layers here.",40)
  561. 2810  FOR K=1 TO 1500:NEXT K
  562. 2815  LINE(215,95)-(210,90),3
  563. 2820  LINE(210,95)-(215,90),0
  564. 2825  LINE-(210,90),0
  565. 2830  LINE-(210,95),0
  566. 2835  PSET(215,95),0
  567. 2840  FOR K=1 TO 1500:NEXT K
  568. 2845  LINE(210,95)-(215,90),3
  569. 2850  LINE-(210,90),3
  570. 2855  LINE-(210,95),3
  571. 2860  LINE(215,95)-(210,90),0
  572. 2865  LINE(215,95)-(200,95),0
  573. 2870  FOR K=1 TO 250:NEXT K
  574. 2875  GOSUB 30000         '** Textpad **
  575. 2880  PRINT FNCEN$("This line",40)
  576. 2885  FOR K=1 TO 750:NEXT K
  577. 2890  LINE(187,70)-(215,95),3
  578. 2895  PSET(210,90),3
  579. 2900  FOR K=1 TO 25
  580. 2905  LINE(187,70)-(215,95),3
  581. 2910  FOR M=1 TO 25:NEXT M
  582. 2915  LINE(187,70)-(215,95),2
  583. 2920  NEXT K
  584. 2925  FOR K=1 TO 750:NEXT K
  585. 2930  GOSUB 30000         '** Textpad **
  586. 2935  PRINT FNCEN$("will move along this line",40)
  587. 2940  FOR K=1 TO 750:NEXT K
  588. 2945  FOR K=1 TO 25
  589. 2950  LINE(215,95)-(160,95),3
  590. 2955  FOR M=1 TO 25:NEXT M
  591. 2960  LINE(215,95)-(160,95),0
  592. 2965  NEXT K
  593. 2970  'LINE(160,95)-(215,95),0
  594. 2975  FOR K=1 TO 750:NEXT K
  595. 2980  GOSUB 30000         '** Textpad **
  596. 2985  PRINT FNCEN$("over to here,",40)
  597. 2990  FOR K=1 TO 750:NEXT K
  598. 2995  LINE(187,70)-(215,95),3
  599. 3000  FOR K=1 TO 25
  600. 3005  LINE(187,70)-(161,94),3
  601. 3010  FOR M=1 TO 25:NEXT M
  602. 3015  LINE(187,70)-(161,94),2
  603. 3020  NEXT K
  604. 3025  FOR K=1 TO 750:NEXT K
  605. 3030  LINE(187,70)-(161,94),3
  606. 3035  LINE(187,70)-(215,95),2
  607. 3040  GOSUB 30000         '** Textpad **
  608. 3045  PRINT FNCEN$("and this line",40)
  609. 3050  FOR K=1 TO 750:NEXT K
  610. 3055  FOR K=1 TO 25
  611. 3060  LINE(187,70)-(215,70),3
  612. 3065  LINE(187,71)-(215,71),3
  613. 3070  FOR M=1 TO 25:NEXT M
  614. 3075  LINE(187,70)-(215,70),2
  615. 3080  LINE(187,71)-(215,71),2
  616. 3085  NEXT K
  617. 3090  LINE(187,71)-(215,71),3
  618. 3095  FOR K=1 TO 750:NEXT K
  619. 3100  GOSUB 30000         '** Textpad **
  620. 3105  PRINT FNCEN$("will wind up here.",40)
  621. 3110  FOR K=1 TO 750:NEXT K
  622. 3115  FOR A=0 TO 20
  623. 3120  OUT 66,A:OUT 66,A
  624. 3125  OUT 97,(INP(97) OR 3)
  625. 3130  NEXT A
  626. 3135  SOUND 37,0
  627. 3140  LINE(187,70)-(215,70),0
  628. 3145  LINE-(215,95),0
  629. 3150  LINE-(187,70),0
  630. 3155  PAINT(205,80),0
  631. 3160  LINE(187,70)-(215,95),3
  632. 3165  LINE(187,70)-(161,94),2
  633. 3170  FOR K=1 TO 25
  634. 3175  LINE(187,70)-(187,94),3
  635. 3180  FOR M=1 TO 25:NEXT M
  636. 3185  LINE(187,70)-(187,94),2
  637. 3190  NEXT K
  638. 3195  FOR K=1 TO 1500:NEXT K
  639. 3200  GOSUB 30000         '** Textpad **
  640. 3205  PRINT FNCEN$("OK!  Let's execute that fold.",40)
  641. 3210  FOR K=1 TO 750:NEXT K
  642. 3215  FOR A=0 TO 20
  643. 3220  OUT 66,A:OUT 66,A
  644. 3225  OUT 97,(INP(97) OR 3)
  645. 3230  NEXT A
  646. 3235  SOUND 37,0
  647. 3240  LINE(161,94)-(187,70),3
  648. 3245  LINE-(187,94),3
  649. 3250  LINE(187,70)-(215,94),3,BF
  650. 3255  LINE(187,70)-(215,95),0
  651. 3260  FOR V=70 TO 95 STEP 2
  652. 3265  PSET(187,V),0
  653. 3270  NEXT V
  654. 3275  FOR K=1 TO 750:NEXT K
  655. 3280  GOSUB 30000         '** Textpad **
  656. 3285  PRINT FNCEN$("And away we go!",40)
  657. 3290  FOR K=1 TO 750:NEXT K
  658. 3295  LINE(187,70)-(215,95),3
  659. 3300  FOR Q=1 TO 35
  660. 3305  LINE(186,70)-(214-Q,95),0
  661. 3310  LINE(187,70)-(215-Q,95),0
  662. 3315  LINE-(215-0.4*Q,70+0.371*Q),0
  663. 3320  LINE(187,70)-(215-Q,95),3
  664. 3325  LINE(214,95)-(214-0.4*Q,70+0.371*Q),3
  665. 3330  LINE(215,95)-(215-0.4*Q,70+0.371*Q),3
  666. 3335  LINE(187,70)-(215-0.4*Q,70+0.371*Q),0
  667. 3340  LINE-(215,95),0
  668. 3345  LINE(187,70)-(215,95)
  669. 3350  PSET(215-Q,95),0
  670. 3355  FOR M=1 TO 50:NEXT M
  671. 3360  NEXT Q
  672. 3365  PSET(198,77),0:PSET(201,79),0
  673. 3370  PSET(203,80),0:PSET(204,81),0
  674. 3375  PSET(207,85),0
  675. 3380  LINE(187,70)-(215,95),3
  676. 3385  LINE(195,78)-(200,83),3
  677. 3390  FOR Q=0 TO 20
  678. 3395  LINE(186,70)-(179-Q,95),0
  679. 3400  LINE(187,70)-(180-Q,95),0
  680. 3405  LINE-(201-0.7*Q,83+0.6*Q),0
  681. 3410  LINE(160,94)-(201-0.7*Q,83+0.6*Q),3
  682. 3415  LINE-(215,94),3
  683. 3420  LINE(187,70)-(180-Q,95),3
  684. 3425  LINE(186,70)-(200-0.7*Q,83+0.6*Q),0
  685. 3430  LINE(187,70)-(201-0.7*Q,83+0.6*Q),0
  686. 3435  LINE(187,70)-(201-0.7*Q,83+0.6*Q),3
  687. 3440  LINE(160,95)-(215,95),0
  688. 3445  LINE(195,78)-(200,83),3
  689. 3450  FOR M=1 TO 50:NEXT M
  690. 3455  NEXT Q
  691. 3460  PSET(201,83),2
  692. 3465  LINE(185,71)-(160,94),3
  693. 3470  PSET(179,76),3
  694. 3475  LINE(186,70)-(186,94),3
  695. 3480  LINE(187,70)-(160,95),0
  696. 3485  CIRCLE(198,87),6,0
  697. 3490  PAINT(198,87),0
  698. 3495  CIRCLE(198,87),6,3
  699. 3500  PAINT(198,87),3
  700. 3505  PSET(194,81),3
  701. 3510  FOR V=70 TO 95 STEP 2
  702. 3515  PSET(187,V),0
  703. 3520  NEXT V
  704. 3525  FOR K=1 TO 750:NEXT K
  705. 3530  GOSUB 30000         '** Textpad **
  706. 3535  PRINT FNCEN$("And with the other corners,",40)
  707. 3540  FOR K=1 TO 750:NEXT K
  708. 3545  GOSUB 30000   '*** <Textpad> ***
  709. 3550  PRINT FNCEN$("SO!",40)
  710. 3555  FOR K=1 TO 750:NEXT K
  711. 3560  LINE(187,120)-(215,95),3
  712. 3565  FOR Q=1 TO 35
  713. 3570  LINE(186,120)-(214-Q,95),0
  714. 3575  LINE(187,120)-(215-Q,95),0
  715. 3580  LINE-(215-0.4*Q,120-0.371*Q),0
  716. 3585  LINE(187,120)-(215-Q,95),3
  717. 3590  LINE(214,95)-(214-0.4*Q,120-0.371*Q),3
  718. 3595  LINE(215,95)-(215-0.4*Q,120-0.371*Q),3
  719. 3600  LINE(187,120)-(215-0.4*Q,120-0.371*Q),0
  720. 3605  LINE-(215,95),0
  721. 3610  LINE(187,120)-(215,95)
  722. 3615  PSET(215-Q,95),0
  723. 3620  NEXT Q
  724. 3625  PSET(198,113),0:PSET(201,111),0
  725. 3630  PSET(203,110),0:PSET(204,109),0
  726. 3635  PSET(207,105),0
  727. 3640  LINE(187,120)-(215,95),3
  728. 3645  LINE(195,112)-(200,107),3
  729. 3650  FOR Q=0 TO 20
  730. 3655  LINE(186,120)-(179-Q,95),0
  731. 3660  LINE(187,120)-(180-Q,95),0
  732. 3665  LINE-(201-0.7*Q,107-0.6*Q),0
  733. 3670  LINE(160,96)-(201-0.7*Q,107-0.6*Q),3
  734. 3675  LINE-(215,96),3
  735. 3680  LINE(187,120)-(180-Q,95),3
  736. 3685  LINE(186,120)-(200-0.7*Q,107-0.6*Q),0
  737. 3690  LINE(187,120)-(201-0.7*Q,107-0.6*Q),0
  738. 3695  LINE(187,120)-(201-0.7*Q,107-0.6*Q),3
  739. 3700  LINE(160,95)-(215,95),0
  740. 3705  LINE(195,112)-(200,107),3
  741. 3710  NEXT Q
  742. 3715  PSET(201,107),2
  743. 3720  LINE(185,119)-(160,96),3
  744. 3725  PSET(179,114),3
  745. 3730  LINE(186,120)-(186,96),3
  746. 3735  LINE(187,120)-(160,95),0
  747. 3740  CIRCLE(198,103),6,0
  748. 3745  PAINT(198,103),0
  749. 3750  CIRCLE(198,103),6,3
  750. 3755  PAINT(198,103),3
  751. 3760  PSET(194,109),3
  752. 3765  FOR V=95 TO 120 STEP 2
  753. 3770  PSET(187,V),0
  754. 3775  NEXT V
  755. 3780  PSET(194,113),3
  756. 3785  FOR K=1 TO 750:NEXT K
  757. 3790  LINE(132,70)-(105,95),3
  758. 3795  FOR Q=1 TO 35
  759. 3800  LINE(134,70)-(106+Q,95),0
  760. 3805  LINE(133,70)-(105+Q,95),0
  761. 3810  LINE-(105+0.4*Q,70+0.371*Q),0
  762. 3815  LINE(133,70)-(105+Q,95),3
  763. 3820  LINE(106,95)-(106+0.4*Q,70+0.371*Q),3
  764. 3825  LINE(105,95)-(105+0.4*Q,70+0.371*Q),3
  765. 3830  LINE(133,70)-(105+0.4*Q,70+0.371*Q),0
  766. 3835  LINE-(105,95),0
  767. 3840  LINE(133,70)-(105,95)
  768. 3845  PSET(105+Q,95),0
  769. 3850  NEXT Q
  770. 3855  PSET(122,77),0:PSET(119,79),0
  771. 3860  PSET(117,80),0:PSET(116,81),0
  772. 3865  PSET(113,85),0
  773. 3870  LINE(133,70)-(105,95),3
  774. 3875  LINE(125,78)-(120,83),3
  775. 3880  FOR Q=0 TO 20
  776. 3885  LINE(134,70)-(141+Q,95),0
  777. 3890  LINE(133,70)-(140+Q,95),0
  778. 3895  LINE-(119+0.7*Q,83+0.6*Q),0
  779. 3900  LINE(160,94)-(119+0.7*Q,83+0.6*Q),3
  780. 3905  LINE-(105,94),3
  781. 3910  LINE(133,70)-(140+Q,95),3
  782. 3915  LINE(134,70)-(120+0.7*Q,83+0.6*Q),0
  783. 3920  LINE(133,70)-(119+0.7*Q,83+0.6*Q),0
  784. 3925  LINE(133,70)-(119+0.7*Q,83+0.6*Q),3
  785. 3930  LINE(160,95)-(105,95),0
  786. 3935  LINE(125,78)-(120,83),3
  787. 3940  NEXT Q
  788. 3945  PSET(119,83),2
  789. 3950  LINE(135,71)-(160,94),3
  790. 3955  PSET(141,76),3
  791. 3960  LINE(134,70)-(134,94),3
  792. 3965  LINE(133,70)-(160,95),0
  793. 3970  CIRCLE(122,87),6,0
  794. 3975  PAINT(122,87),0
  795. 3980  CIRCLE(122,87),6,3
  796. 3985  PAINT(122,87),3
  797. 3990  PSET(124,80),3
  798. 3995  LINE(133,70)-(133,95),3
  799. 4000  FOR V=70 TO 95 STEP 2
  800. 4005  PSET(133,V),0
  801. 4010  NEXT V
  802. 4015  FOR K=1 TO 750:NEXT K
  803. 4020  LINE(133,120)-(105,95),3
  804. 4025  FOR Q=1 TO 35
  805. 4030  LINE(134,120)-(106+Q,95),0
  806. 4035  LINE(133,120)-(105+Q,95),0
  807. 4040  LINE-(105-0.4*Q,120+0.371*Q),0
  808. 4045  LINE(133,120)-(105+Q,95),3
  809. 4050  LINE(106,95)-(106+0.4*Q,120-0.371*Q),3
  810. 4055  LINE(105,95)-(105+0.4*Q,120-0.371*Q),3
  811. 4060  LINE(133,120)-(105+0.4*Q,120-0.371*Q),0
  812. 4065  LINE-(105,95),0
  813. 4070  LINE(133,120)-(105,95)
  814. 4075  PSET(105+Q,95),0
  815. 4080  NEXT Q
  816. 4085  PSET(122,113),0:PSET(119,111),0
  817. 4090  PSET(117,110),0:PSET(116,109),0
  818. 4095  PSET(113,105),0
  819. 4100  LINE(133,120)-(105,95),3
  820. 4105  LINE(125,112)-(120,107),3
  821. 4110  FOR Q=0 TO 20
  822. 4115  LINE(134,120)-(141+Q,95),0
  823. 4120  LINE(133,120)-(140+Q,95),0
  824. 4125  LINE-(119+0.7*Q,107-0.6*Q),0
  825. 4130  LINE(160,96)-(119+0.7*Q,107-0.6*Q),3
  826. 4135  LINE-(105,96),3
  827. 4140  LINE(133,120)-(140+Q,95),3
  828. 4145  LINE(134,120)-(120+0.7*Q,107-0.6*Q),0
  829. 4150  LINE(133,120)-(119+0.7*Q,107-0.6*Q),0
  830. 4155  LINE(133,120)-(119+0.7*Q,107-0.6*Q),3
  831. 4160  LINE(160,95)-(105,95),0
  832. 4165  LINE(125,112)-(120,107),3
  833. 4170  NEXT Q
  834. 4175  PSET(119,107),2
  835. 4180  LINE(135,119)-(160,96),3
  836. 4185  PSET(141,114),3
  837. 4190  LINE(134,120)-(134,96),3
  838. 4195  LINE(133,120)-(160,95),0
  839. 4200  CIRCLE(122,103),6,0
  840. 4205  PAINT(122,103),0
  841. 4210  CIRCLE(122,103),6,3
  842. 4215  PAINT(122,103),3
  843. 4220  PSET(139,109),3
  844. 4225  FOR V=95 TO 120 STEP 2
  845. 4230  PSET(133,V),0
  846. 4235  NEXT V
  847. 4240  PSET(139,113),3
  848. 4245  PSET(125,108),3:PSET(126,113),3
  849. 4250  GOSUB 30000         '** Textpad **
  850. 4255  PRINT FNCEN$("All SQUASHes accomplished!",40)
  851. 4260  FOR K=1 TO 1500:NEXT K
  852. 4265  GOSUB 30000       '*** Textpad ***
  853. 4270  PRINT FNCEN$("To review those folds, press <R>.",40)
  854. 4275  FOR K=1 TO 1000:NEXT K
  855. 4280  PRINT FNCEN$("To continue, press <C>.",40)
  856. 4285  A$=INKEY$:IF A$="" GOTO 4285
  857. 4290  IF A$="r" OR A$="R" GOTO 4305
  858. 4295  IF A$="c" OR A$="C" GOTO 4405
  859. 4300  GOTO 4265
  860. 4305  FOR A=0 TO 20
  861. 4310  OUT 66,A:OUT 66,A
  862. 4315  OUT 97,(INP(97) OR 3)
  863. 4320  NEXT A
  864. 4325  SOUND 37,0
  865. 4330  LINE(105,70)-(215,120),3,BF
  866. 4335  LINE(133,70)-(105,95),0
  867. 4340  LINE-(133,120),0
  868. 4345  LINE(187,70)-(215,95),0
  869. 4350  LINE-(187,120),0
  870. 4355  FOR V=70 TO 120 STEP 2
  871. 4360  PSET(187,V),0
  872. 4365  PSET(133,V),0
  873. 4370  NEXT V
  874. 4375  LINE(105,95)-(215,95),0
  875. 4380  GOSUB 30000   '** Textpad **
  876. 4385  PRINT FNCEN$("* Review *",40)
  877. 4390  FOR K=1 TO 1500:NEXT K
  878. 4395  GOTO 2420
  879. 4400  LINE(105,95)-(215,105),0
  880. 4405  GOSUB 30000         '** Textpad **
  881. 4410  PRINT FNCEN$("For our next folds,",40)
  882. 4415  FOR K=1 TO 1500:NEXT K
  883. 4420  PRINT FNCEN$("we need to turn our figure over.",40)
  884. 4425  FOR K=1 TO 1500:NEXT K
  885. 4430  GOSUB 30000         '** Textpad **
  886. 4435  PRINT FNCEN$("Let's just do that.",40)
  887. 4440  FOR K=1 TO 1500:NEXT K
  888. 4445  GOSUB 30000         '** Textpad **
  889. 4450  PRINT FNCEN$("One moment, please.",40)
  890. 4455  FOR K=1 TO 750:NEXT K
  891. 4460  FOR A=0 TO 20
  892. 4465  OUT 66,A:OUT 66,A
  893. 4470  OUT 97,(INP(97) OR 3)
  894. 4475  NEXT A
  895. 4480  SOUND 37,0
  896. 4485  CLS
  897. 4490  LINE(70,120)-(115,80)
  898. 4495  LINE-(205,80)
  899. 4500  LINE-(250,120)
  900. 4505  LINE-(205,160)
  901. 4510  LINE-(115,160)
  902. 4515  LINE-(70,120)
  903. 4520  PAINT(160,120)
  904. 4525  FOR H=70 TO 250 STEP 2
  905. 4530  PSET(H,120),0
  906. 4535  NEXT H
  907. 4540  FOR K=1 TO 250:NEXT K
  908. 4545  GOSUB 30000         '** Textpad **
  909. 4550  PRINT FNCEN$("We next take this lower portion",40)
  910. 4555  FOR K=1 TO 750:NEXT K
  911. 4560  FOR K=1 TO 15
  912. 4565  LINE(70,120)-(115,160),0
  913. 4570  LINE-(205,160),0
  914. 4575  LINE-(250,120),0
  915. 4580  LINE-(70,120),0
  916. 4585  FOR M=1 TO 25:NEXT M
  917. 4590  LINE(70,120)-(115,160),3
  918. 4595  LINE-(205,160),3
  919. 4600  LINE-(250,120),3
  920. 4605  LINE-(70,120),3
  921. 4610  NEXT K
  922. 4615  FOR H=70 TO 250 STEP 2
  923. 4620  PSET(H,120),0
  924. 4625  NEXT H
  925. 4630  FOR K=1 TO 250:NEXT K
  926. 4635  GOSUB 30000         '** Textpad **
  927. 4640  PRINT FNCEN$("up and over to this upper portion,",40)
  928. 4645  FOR K=1 TO 750:NEXT K
  929. 4650  FOR K=1 TO 15
  930. 4655  LINE(70,120)-(115,80),0
  931. 4660  LINE-(205,80),0
  932. 4665  LINE-(250,120),0
  933. 4670  LINE-(70,120),0
  934. 4675  FOR M=1 TO 25:NEXT M
  935. 4680  LINE(70,120)-(115,80),3
  936. 4685  LINE-(205,80),3
  937. 4690  LINE-(250,120),3
  938. 4695  LINE-(70,120),3
  939. 4700  NEXT K
  940. 4705  FOR H=70 TO 250 STEP 2
  941. 4710  PSET(H,120),0
  942. 4715  NEXT H
  943. 4720  GOSUB 30000         '** Textpad **
  944. 4725  PRINT FNCEN$("SO!",40)
  945. 4730  FOR K=1 TO 750:NEXT K
  946. 4735  FOR V=160 TO 120 STEP -1
  947. 4740  LINE(70,120)-(115,V),0
  948. 4745  LINE-(205,V),0
  949. 4750  LINE-(250,120),0
  950. 4755  NEXT V
  951. 4760  FOR V=120 TO 80 STEP -1
  952. 4765  LINE(70,120)-(115,V),0
  953. 4770  LINE-(205,V),0
  954. 4775  LINE-(250,120),0
  955. 4780  LINE(70,120)-(115,V),3
  956. 4785  LINE-(205,V),3
  957. 4790  LINE-(250,120),3
  958. 4795  NEXT V
  959. 4800  LINE(115,80)-(205,160),0
  960. 4805  LINE(115,160)-(205,80),0
  961. 4810  FOR V=80 TO 120 STEP 2
  962. 4815  PSET(115,V),0
  963. 4820  PSET(205,V),0
  964. 4825  NEXT V
  965. 4830  FOR K=1 TO 750:NEXT K
  966. 4835  GOSUB 30000         '** Textpad **
  967. 4840  PRINT FNCEN$("Press <C> to continue.",40)
  968. 4845  A$=INKEY$:IF A$="" GOTO 4845
  969. 4850  IF A$="C" OR A$="c" GOTO 4860
  970. 4855  GOTO 4835
  971. 4860  GOSUB 30000         '** Textpad **
  972. 4865  PRINT FNCEN$("Next, this corner",40)
  973. 4870  FOR K=1 TO 750:NEXT K
  974. 4875  LINE(155,115)-(159,119)
  975. 4880  LINE(155,116)-(150,120),0
  976. 4885  LINE-(155,120),0
  977. 4890  LINE-(155,116),0
  978. 4895  FOR K=1 TO 1500:NEXT K
  979. 4900  GOSUB 30000         '** Textpad **
  980. 4905  PRINT FNCEN$("goes down to this point",40)
  981. 4910  FOR K=1 TO 750:NEXT K
  982. 4915                                '*** flashdot ***
  983. 4920  FOR K=1 TO 15
  984. 4925  CIRCLE(115,137),5,3
  985. 4930  LINE(113,137)-(117,137),3
  986. 4935  LINE(115,135)-(115,139),3
  987. 4940  FOR M=1 TO 25:NEXT M
  988. 4945  CIRCLE(115,137),5,0
  989. 4950  LINE(113,137)-(117,137),0
  990. 4955  LINE(115,135)-(115,139),0
  991. 4960  NEXT K
  992. 4965  FOR K=1 TO 750:NEXT K
  993. 4970                              '*** end flashdot ***
  994. 4975  GOSUB 30000         '** Textpad **
  995. 4980  PRINT FNCEN$("across this line,",40)
  996. 4985  FOR K=1 TO 750:NEXT K
  997. 4990  LINE(115,80)-(133,120),0
  998. 4995  FOR K=1 TO 750:NEXT K
  999. 5000  GOSUB 30000         '** Textpad **
  1000. 5005  PRINT FNCEN$("SO!",40)
  1001. 5010  FOR K=1 TO 750:NEXT K
  1002. 5015  FOR A=0 TO 20
  1003. 5020  OUT 66,A:OUT 66,A
  1004. 5025  OUT 97,(INP(97) OR 3)
  1005. 5030  NEXT A
  1006. 5035  SOUND 37,0
  1007. 5040  LINE(155,115)-(159,119),0
  1008. 5045  LINE(155,116)-(150,120),3
  1009. 5050  LINE-(155,120),3
  1010. 5055  LINE-(155,116),3
  1011. 5060  LINE(116,81)-(159,119),3
  1012. 5065  PSET(120,84),3
  1013. 5070  LINE(133,120)-(115,137)
  1014. 5075  LINE-(115,120)
  1015. 5080  PAINT(120,125)
  1016. 5085  LINE(115,81)-(115,120),3
  1017. 5090  LINE(114,80)-(114,120),0
  1018. 5095  LINE(115,80)-(133,120),0
  1019. 5100  FOR K=1 TO 1000:NEXT K
  1020. 5105  GOSUB 30000         '** Textpad **
  1021. 5110  PRINT FNCEN$("and on the other side,",40)
  1022. 5115  FOR K=1 TO 1000:NEXT K
  1023. 5120  LINE(205,80)-(187,120),0
  1024. 5125  FOR K=1 TO 750:NEXT K
  1025. 5130  FOR A=0 TO 20
  1026. 5135  OUT 66,A:OUT 66,A
  1027. 5140  OUT 97,(INP(97) OR 3)
  1028. 5145  NEXT A
  1029. 5150  SOUND 37,0
  1030. 5155  LINE(205,80)-(160,120),3
  1031. 5160  LINE(187,120)-(205,137)
  1032. 5165  LINE-(205,120)
  1033. 5170  PAINT(200,125)
  1034. 5175  LINE(205,80)-(205,120),3
  1035. 5180  LINE(206,80)-(206,120),0
  1036. 5185  LINE(205,80)-(187,120),0
  1037. 5190  FOR K=1 TO 750:NEXT K
  1038. 5195  GOSUB 30000         '** Textpad **
  1039. 5200  PRINT FNCEN$("and on the hidden side,",40)
  1040. 5205  FOR K=1 TO 1000:NEXT K
  1041. 5210  FOR A=0 TO 20
  1042. 5215  OUT 66,A:OUT 66,A
  1043. 5220  OUT 97,(INP(97) OR 3)
  1044. 5225  NEXT A
  1045. 5230  SOUND 37,0
  1046. 5235  FOR K=1 TO 250:NEXT K
  1047. 5240  GOSUB 30000         '** Textpad **
  1048. 5245  PRINT FNCEN$("and one more on the hidden side.",40)
  1049. 5250  FOR K=1 TO 1000:NEXT K
  1050. 5255  FOR A=0 TO 20
  1051. 5260  OUT 66,A:OUT 66,A
  1052. 5265  OUT 97,(INP(97) OR 3)
  1053. 5270  NEXT A
  1054. 5275  SOUND 37,0
  1055. 5280  FOR K=1 TO 750:NEXT K
  1056. 5285  GOSUB 30000         '** Textpad **
  1057. 5290  PRINT FNCEN$("Press <C> to continue.",40)
  1058. 5295  A$=INKEY$:IF A$="" GOTO 5295
  1059. 5300  IF A$="C" OR A$="c" GOTO 5310
  1060. 5305  GOTO 5285
  1061. 5310  GOSUB 30000         '** Textpad **
  1062. 5315  PRINT FNCEN$("The next two folds are for PIG's tail.",40)
  1063. 5320  FOR K=1 TO 1500:NEXT K
  1064. 5325  GOSUB 30000         '** Textpad **
  1065. 5330  PRINT FNCEN$("The first is a POCKET FOLD.",40)
  1066. 5335  FOR K=1 TO 1500:NEXT K
  1067. 5340  PRINT FNCEN$("The second is a REVERSE POCKET FOLD.",40)
  1068. 5345  FOR K=1 TO 1500:NEXT K
  1069. 5350  PRINT FNCEN$("We will be BACKFOLDing both these folds.",40)
  1070. 5355  FOR K=1 TO 2500:NEXT K
  1071. 5360  GOSUB 30000         '** Textpad **
  1072. 5365  PRINT FNCEN$("Here's the first fold.",40)
  1073. 5370  FOR K=1 TO 1000:NEXT K
  1074. 5375  GOSUB 30000         '** Textpad **
  1075. 5380  PRINT FNCEN$("This corner",40)
  1076. 5385  FOR K=1 TO 750:NEXT K
  1077. 5390                              '*** arrow up ***
  1078. 5395  FOR K=1 TO 15
  1079. 5400  PSET(250,128):DRAW"G5R4D7R2U7R4H5"
  1080. 5405  PAINT(250,134)
  1081. 5410  FOR M=1 TO 25:NEXT M
  1082. 5415  CIRCLE(250,134),7,0
  1083. 5420  PAINT(250,134),0
  1084. 5425  NEXT K
  1085. 5430  CIRCLE(250,134),7,0
  1086. 5435  PAINT(250,134),0
  1087. 5440  FOR K=1 TO 750:NEXT K
  1088. 5445                              '***end arrow up ***
  1089. 5450  GOSUB 30000         '** Textpad **
  1090. 5455  PRINT FNCEN$("folds up to this corner",40)
  1091. 5460  FOR K=1 TO 750:NEXT K
  1092. 5465                              '*** arrow down ***
  1093. 5470  FOR K=1 TO 15
  1094. 5475  PSET(205,72):DRAW"E5L4U7L2D7L4F5"
  1095. 5480  PAINT(205,66)
  1096. 5485  FOR M=1 TO 25:NEXT M
  1097. 5490  CIRCLE(205,66),7,0
  1098. 5495  PAINT(205,66),0
  1099. 5500  NEXT K
  1100. 5505  CIRCLE(205,66),7,0
  1101. 5510  PAINT(205,66),0
  1102. 5515  FOR K=1 TO 750:NEXT K
  1103. 5520                              '***end arrow down ***
  1104. 5525  GOSUB 30000         '** Textpad **
  1105. 5530  PRINT FNCEN$("across this line,",40)
  1106. 5535  FOR K=1 TO 750:NEXT K
  1107. 5540  LINE(227,100)-(207,120),0
  1108. 5545  FOR K=1 TO 750:NEXT K
  1109. 5550  GOSUB 30000   '** <Textpad **
  1110. 5555  PRINT FNCEN$("SO!",40)
  1111. 5560  FOR K=1 TO 750:NEXT K
  1112. 5565  FOR Q=0 TO 43
  1113. 5570  LINE(207,120)-(250-0.535*Q,120-0.465*Q),0
  1114. 5575  LINE(207,121)-(250-0.535*Q,121-0.465*Q),0
  1115. 5580  FOR M=1 TO 10:NEXT M
  1116. 5585  NEXT Q
  1117. 5590  FOR Q=0 TO 20
  1118. 5595  LINE(207,120)-(227-Q,100-0.9*Q),0
  1119. 5600  LINE(208,120)-(228,101),0
  1120. 5605  LINE(207,120)-(227-Q,100-0.9*Q),3
  1121. 5610  FOR M= 1 TO 10:NEXT M
  1122. 5615  NEXT Q
  1123. 5620  GOSUB 30000         '** Textpad **
  1124. 5625  PRINT FNCEN$("Press <C> to continue.",40)
  1125. 5630  A$=INKEY$:IF A$="" GOTO 5630
  1126. 5635  IF A$="C" OR A$="c" GOTO 5645
  1127. 5640  GOTO 5620
  1128. 5645  GOSUB 30000         '** Textpad **
  1129. 5650  PRINT FNCEN$("The second fold takes this edge",40)
  1130. 5655  FOR K=1 TO 750:NEXT K
  1131. 5660  FOR K=1 TO 15
  1132. 5665  LINE(207,82)-(207,120),0
  1133. 5670  FOR M=1 TO 25:NEXT M
  1134. 5675  LINE(207,82)-(207,120),3
  1135. 5680  NEXT K
  1136. 5685  FOR K=1 TO 750:NEXT K
  1137. 5690                              '***end arrow down ***
  1138. 5695  GOSUB 30000         '** Textpad **
  1139. 5700  PRINT FNCEN$("over to this edge",40)
  1140. 5705  FOR K=1 TO 750:NEXT K
  1141. 5710                              '*** arrow left ***
  1142. 5715  PSET(225,113):DRAW"R8G3F6G2H6G3U8"
  1143. 5720  PAINT(230,118)
  1144. 5725  FOR K=1 TO 25
  1145. 5730  LINE(207,120)-(227,100),0
  1146. 5735  FOR M=1 TO 25:NEXT M
  1147. 5740  LINE(207,120)-(227,100),3
  1148. 5745  NEXT K
  1149. 5750  FOR K=1 TO 750:NEXT K
  1150. 5755  CIRCLE(230,118),9,0
  1151. 5760  PAINT(230,118),0
  1152. 5765  GOSUB 30000         '** Textpad **
  1153. 5770  PRINT FNCEN$("along this line,",40)
  1154. 5775  FOR K=1 TO 750:NEXT K
  1155. 5780  LINE(207,120)-(217,91),0
  1156. 5785  FOR K=1 TO 750:NEXT K
  1157. 5790  GOSUB 30000         '** Textpad **
  1158. 5795  PRINT FNCEN$("SO!",40)
  1159. 5800  FOR K=1 TO 750:NEXT K
  1160. 5805  FOR Q=0 TO 10
  1161. 5810  LINE(208,120)-(208+Q,83+0.9*Q),0
  1162. 5815  LINE(207,120)-(207+Q,82+0.9*Q),0
  1163. 5820  LINE(207,120)-(207+Q,82+0.9*Q),3
  1164. 5825  LINE(207,120)-(217,91),0
  1165. 5830  PSET(213,90),3
  1166. 5835  PSET(215,91),3
  1167. 5840  FOR M=1 TO 25:NEXT M
  1168. 5845  NEXT Q
  1169. 5850  FOR H=217 TO 237
  1170. 5855  LINE(207,120)-(H,91),0
  1171. 5860  LINE(207,120)-(H,91),3
  1172. 5865  LINE(207,120)-(217,91),0
  1173. 5870  FOR M= 1 TO 25:NEXT M
  1174. 5875  NEXT H
  1175. 5880  LINE(207,120)-(237,91),0
  1176. 5885  FOR K=1 TO 750:NEXT K
  1177. 5890  GOSUB 30000   '*** Textpad ***
  1178. 5895  PRINT FNCEN$("Press <C> to continue.",40)
  1179. 5900  A$=INKEY$:IF A$="" GOTO 5900
  1180. 5905  IF A$="C" OR A$="c" GOTO 5915
  1181. 5910  GOTO 5890
  1182. 5915  GOSUB 30000   '** Textpad **
  1183. 5920  PRINT FNCEN$("Next comes a series of returns",40)
  1184. 5925  FOR K=1 TO 1500:NEXT K
  1185. 5930  GOSUB 30000   '** Textpad **
  1186. 5935  PRINT FNCEN$("and backfolds,",40)
  1187. 5940  FOR K=1 TO 1500:NEXT K
  1188. 5945  GOSUB 30000   '** Textpad **
  1189. 5950  PRINT FNCEN$("and here's the first return,",40)
  1190. 5955  FOR K=1 TO 1000:NEXT K
  1191. 5960  FOR Q=0 TO 20
  1192. 5965  LINE(228-0.591*Q,99-0.45*Q)-(237-Q,91),0
  1193. 5970  LINE(228-0.591*Q,98-0.45*Q)-(237-Q,91),0
  1194. 5975  LINE(207,120)-(227-Q,100-0.818*Q),3
  1195. 5980  LINE(207,120)-(228-Q,100-0.818*Q),3
  1196. 5985  LINE(217,91)-(207,120),0
  1197. 5990  PSET(215,95)
  1198. 5995  FOR M= 1 TO 25:NEXT M
  1199. 6000  NEXT Q
  1200. 6005  FOR Q=0 TO 10
  1201. 6010  LINE(207,120)-(217-Q,91-0.9*Q),0
  1202. 6015  LINE(207,120)-(217-Q,91-0.9*Q)
  1203. 6020  LINE(207,120)-(217,91),0
  1204. 6025  PSET(218,94):PSET(217,96)
  1205. 6030  FOR M= 1 TO 25:NEXT M
  1206. 6035  NEXT Q
  1207. 6040  LINE(208,120)-(228,100),0
  1208. 6045  LINE(209,120)-(229,100),0
  1209. 6050  LINE(208,82)-(228,100),0
  1210. 6055  LINE(209,82)-(229,100),0
  1211. 6060  LINE(210,120)-(230,100),0
  1212. 6065  LINE(211,120)-(231,100),0
  1213. 6070  LINE(212,120)-(232,100),0
  1214. 6075  LINE(207,120)-(217,91),0
  1215. 6080  FOR K=1 TO 750:NEXT K
  1216. 6085  GOSUB 30000
  1217. 6090  PRINT FNCEN$("Press <C> to continue.",40)
  1218. 6095  A$=INKEY$:IF A$="" GOTO 6095
  1219. 6100  IF A$="C" OR A$="c" GOTO 6110
  1220. 6105  GOTO 6085
  1221. 6110  GOSUB 30000   '** <Textpad **
  1222. 6115  PRINT FNCEN$("and here's the second return.",40)
  1223. 6120  FOR K=1 TO 1000:NEXT K
  1224. 6125  FOR Q=0 TO 20
  1225. 6130  LINE(207,120)-(207+Q,82+0.9*Q),0
  1226. 6135  LINE(207,120)-(207+Q,82+0.9*Q),3
  1227. 6140  PSET(208,120),0
  1228. 6145  FOR M=1 TO 25:NEXT M
  1229. 6150  NEXT Q
  1230. 6155  FOR Q=0 TO 23
  1231. 6160  LINE(207,120)-(228+Q,100+0.87*Q)
  1232. 6165  LINE(207,120)-(227+Q,100+0.87*Q)
  1233. 6170  LINE(207,120)-(227,100),0
  1234. 6175  LINE(207,120)-(238,110),0
  1235. 6180  FOR M=1 TO 25:NEXT M
  1236. 6185  NEXT Q
  1237. 6190  FOR K=1 TO 750:NEXT K
  1238. 6195  GOSUB 30000
  1239. 6200  PRINT FNCEN$("Press <C> to continue.",40)
  1240. 6205  A$=INKEY$:IF A$="" GOTO 6205
  1241. 6210  IF A$="C" OR A$="c" GOTO 6220
  1242. 6215  GOTO 6195
  1243. 6220  GOSUB 30000   '** <Textpad **
  1244. 6225  PRINT FNCEN$("Here's the first backfold,",40)
  1245. 6230  FOR K=1 TO 750:NEXT K
  1246. 6235  FOR Q=0 TO 23
  1247. 6240  LINE(207,120)-(238-0.478*Q,110-0.435*Q),0
  1248. 6245  LINE(207,120)-(238-0.478*Q,110-0.435*Q),3
  1249. 6250  LINE(207,120)-(250-Q,120-0.87*Q),0
  1250. 6255  LINE(207,121)-(250-Q,121-0.87*Q),0
  1251. 6260  LINE(208,82)-(251,120),0
  1252. 6265  LINE(251,120)-(232,103),0
  1253. 6270  PSET(230,102),0
  1254. 6275  FOR M=1 TO 25:NEXT M
  1255. 6280  NEXT Q
  1256. 6285  FOR Q=0 TO 20
  1257. 6290  LINE(207,120)-(227-Q,100-0.9*Q),1
  1258. 6295  LINE(208,120)-(228,101),0
  1259. 6300  LINE(207,120)-(228-Q,100-0.9*Q),3
  1260. 6305  LINE(207,120)-(227-Q,100-0.9*Q),3
  1261. 6310  FOR M= 1 TO 25:NEXT M
  1262. 6315  NEXT Q
  1263. 6320  GOSUB 30000
  1264. 6325  PRINT FNCEN$("Press <C> to continue.",40)
  1265. 6330  A$=INKEY$:IF A$="" GOTO 6330
  1266. 6335  IF A$="C" OR A$="c" GOTO 6345
  1267. 6340  GOTO 6320
  1268. 6345  GOSUB 30000   '** <Textpad **
  1269. 6350  PRINT FNCEN$("and return,",40)
  1270. 6355  FOR K=1 TO 750:NEXT K
  1271. 6360  FOR Q=0 TO 20
  1272. 6365  LINE(207,120)-(207+Q,82+0.9*Q),1
  1273. 6370  LINE(207,120)-(207+Q,82+0.9*Q),3
  1274. 6375  PSET(208,120),0
  1275. 6380  FOR M=1 TO 25:NEXT M
  1276. 6385  NEXT Q
  1277. 6390  FOR Q=0 TO 23
  1278. 6395  LINE(207,120)-(227+Q,100+0.87*Q)
  1279. 6400  LINE(207,120)-(228+Q,100+0.87*Q)
  1280. 6405  LINE(207,120)-(227,100),0
  1281. 6410  LINE(207,120)-(238,110),0
  1282. 6415  NEXT Q
  1283. 6420  FOR K=1 TO 750:NEXT K
  1284. 6425  GOSUB 30000
  1285. 6430  PRINT FNCEN$("Press <C> to continue.",40)
  1286. 6435  A$=INKEY$:IF A$="" GOTO 6435
  1287. 6440  IF A$="C" OR A$="c" GOTO 6450
  1288. 6445  GOTO 6425
  1289. 6450  GOSUB 30000   '** <Textpad **
  1290. 6455  PRINT FNCEN$("and here's the second backfold,",40)
  1291. 6460  FOR K=1 TO 750:NEXT K
  1292. 6465  FOR Q=0 TO 12
  1293. 6470  LINE(207,120)-(250-Q,120-0.833*Q),0
  1294. 6475  LINE-(238,110),0
  1295. 6480  LINE(208,82)-(251,120),0
  1296. 6485  PSET(239,110),0:PSET(240,114),0
  1297. 6490  PSET(237,111),0:PSET(240,111),0:PSET(238,113),0
  1298. 6495  FOR M=1 TO 25:NEXT M
  1299. 6500  NEXT Q
  1300. 6505  CIRCLE(244,116),7,0
  1301. 6510  PAINT(244,116),0
  1302. 6515  FOR Q=0 TO 20
  1303. 6520  LINE(207,120)-(238,110-Q)
  1304. 6525  LINE(207,120)-(238-0.55*Q,110-0.5*Q),1
  1305. 6530  LINE(207,120)-(238-0.55*Q,110-0.5*Q),3
  1306. 6535  LINE(207,120)-(227,100),0
  1307. 6540  LINE(208,82)-(251,120),0
  1308. 6545  NEXT Q
  1309. 6550  FOR K=1 TO 750:NEXT K
  1310. 6555  GOSUB 30000
  1311. 6560  PRINT FNCEN$("Press <C> to continue.",40)
  1312. 6565  A$=INKEY$:IF A$="" GOTO 6565
  1313. 6570  IF A$="C" OR A$="c" GOTO 6580
  1314. 6575  GOTO 6555
  1315. 6580  GOSUB 30000   '** <Textpad **
  1316. 6585  PRINT FNCEN$("and return.",40)
  1317. 6590  FOR K=1 TO 750:NEXT K
  1318. 6595  FOR Q=0 TO 11
  1319. 6600  LINE(227+Q,100+0.909*Q)-(238,91+0.818*Q),0
  1320. 6605  LINE(228+Q,100+0.909*Q)-(239,91+0.818*Q),0
  1321. 6610  LINE(207,120)-(227+Q,100+0.909*Q),1
  1322. 6615  LINE(207,120)-(227+Q,100+0.909*Q),3
  1323. 6620  LINE(207,120)-(227,100),0
  1324. 6625  LINE(238,90)-(236,92),0
  1325. 6630  FOR M=1 TO 25:NEXT M
  1326. 6635  NEXT Q
  1327. 6640  FOR Q=0 TO 12
  1328. 6645  LINE(207,120)-(238+Q,110+0.833*Q)
  1329. 6650  LINE(207,120)-(238,110),0
  1330. 6655  PSET(238,113),3:PSET(240,114),3:PSET(239,113),3
  1331. 6660  FOR M=1 TO 25:NEXT M
  1332. 6665  NEXT Q
  1333. 6670  FOR K=1 TO 750:NEXT K
  1334. 6675  GOSUB 30000   '** <Textpad **
  1335. 6680  PRINT FNCEN$("Would you like to see those folds again?",40)
  1336. 6685  FOR K=1 TO 1500:NEXT K
  1337. 6690  GOSUB 30000
  1338. 6695  PRINT FNCEN$("If so, press <R> to review.",40)
  1339. 6700  FOR K=1 TO 1000:NEXT K
  1340. 6705  PRINT FNCEN$("If not, press <C> to continue.",40)
  1341. 6710  A$=INKEY$:IF A$="" GOTO 6710
  1342. 6715  IF A$="r" OR A$="R" GOTO 6730
  1343. 6720  IF A$="c" OR A$="C" GOTO 6785
  1344. 6725  GOTO 6690
  1345. 6730  FOR A=0 TO 20
  1346. 6735  OUT 66,A:OUT 66,A
  1347. 6740  OUT 97,(INP(97) OR 3)
  1348. 6745  NEXT A
  1349. 6750  SOUND 37,0
  1350. 6755  LINE(207,120)-(227,100)
  1351. 6760  LINE(207,120)-(238,110)
  1352. 6765  GOSUB 30000
  1353. 6770  PRINT FNCEN$("* Review *",40)
  1354. 6775  FOR K=1 TO 1500:NEXT K
  1355. 6780  GOTO 5310
  1356. 6785  GOSUB 30000         '** Textpad **
  1357. 6790  PRINT FNCEN$("Now, we'll go on to POCKET those folds.",40)
  1358. 6795  FOR K=1 TO 1500:NEXT K
  1359. 6800  GOSUB 30000         '** Textpad **
  1360. 6805  PRINT FNCEN$("And here's the pocket.",40)
  1361. 6810  FOR K=1 TO 750:NEXT K
  1362. 6815  PSET(227,100):PSET(238,110)
  1363. 6820  LINE(207,82)-(226,100),0
  1364. 6825  LINE-(250,120),0
  1365. 6830  LINE-(228,100)
  1366. 6835  LINE-(207,82)
  1367. 6840  FOR K=1 TO 750:NEXT K
  1368. 6845  FOR K=1 TO 15
  1369. 6850  PSET(235,95):DRAW"U8F3E6F2G6F3L8"
  1370. 6855  PAINT(240,90)
  1371. 6860  FOR M=1 TO 25:NEXT M
  1372. 6865  CIRCLE(240,90),9,0
  1373. 6870  PAINT(240,90),0
  1374. 6875  NEXT K
  1375. 6880  FOR K=1 TO 750:NEXT K
  1376. 6885  GOSUB 30000         '** Textpad **
  1377. 6890  PRINT FNCEN$("And off we go!",40)
  1378. 6895  FOR K=1 TO 750:NEXT K
  1379. 6900  LINE(207,82)-(226,100),3
  1380. 6905  LINE-(250,120),3
  1381. 6910  LINE-(228,100),0
  1382. 6915  LINE-(207,82),0
  1383. 6920  PSET(227,100),0:PSET(238,110),0
  1384. 6925  FOR Q=0 TO 23
  1385. 6930  LINE(207,120)-(250-Q,120-0.87*Q),0
  1386. 6935  LINE(208,120)-(251-Q,120-0.87*Q),0
  1387. 6940  FOR M=1 TO 25:NEXT M
  1388. 6945  NEXT Q
  1389. 6950  FOR Q=0 TO 20
  1390. 6955  LINE(207,120)-(227-Q,100-0.9*Q),1
  1391. 6960  LINE(207,120)-(227-Q,100-0.9*Q),3
  1392. 6965  FOR M=1 TO 25:NEXT M
  1393. 6970  NEXT Q
  1394. 6975  LINE(207,82)-(207,120),1
  1395. 6980  GOSUB 30000         '** Textpad **
  1396. 6985  PRINT FNCEN$("Press <C> to continue.",40)
  1397. 6990  A$=INKEY$:IF A$="" GOTO 6990
  1398. 6995  IF A$="C" OR A$="c" GOTO 7005
  1399. 7000  GOTO 6980
  1400. 7005  GOSUB 30000         '** Textpad **
  1401. 7010  PRINT FNCEN$("And here's our REVERSE POCKET FOLD.",40)
  1402. 7015  FOR K=1 TO 750:NEXT K
  1403. 7020  LINE(207,120)-(217,91),1
  1404. 7025  FOR K=1 TO 750:NEXT K
  1405. 7030  FOR Q=0 TO 10
  1406. 7035  LINE(207,120)-(207+Q,82+0.9*Q),1
  1407. 7040  LINE(207,120)-(207+Q,82+0.9*Q),3
  1408. 7045  FOR M=1 TO 25:NEXT M
  1409. 7050  NEXT Q
  1410. 7055  FOR Q=0 TO 20
  1411. 7060  LINE(207,120)-(217+0.5*Q,91+0.45*Q),1
  1412. 7065  LINE(207,120)-(217+0.5*Q,91+0.45*Q),3
  1413. 7070  LINE(207,120)-(217+Q,91),3
  1414. 7075  LINE(208,82)-(251,120),0
  1415. 7080  FOR M=1 TO 25:NEXT M
  1416. 7085  NEXT Q
  1417. 7090  LINE(207,120)-(217,91),1
  1418. 7095  GOSUB 30000         '** Textpad **
  1419. 7100  PRINT FNCEN$("THERE!",40)
  1420. 7105  FOR K=1 TO 1500:NEXT K
  1421. 7110  GOSUB 30000         '** Textpad **
  1422. 7115  PRINT FNCEN$("On second thought,",40)
  1423. 7120  FOR K=1 TO 1500:NEXT K
  1424. 7125  GOSUB 30000         '** Textpad **
  1425. 7130  PRINT FNCEN$("let's give PIG's tail a jauntier angle,",40)
  1426. 7135  FOR K=1 TO 1500:NEXT K
  1427. 7140  GOSUB 30000         '** Textpad **
  1428. 7145  PRINT FNCEN$("using a technique you can use",40)
  1429. 7150  FOR K=1 TO 1500:NEXT K
  1430. 7155  GOSUB 30000         '** Textpad **
  1431. 7160  PRINT FNCEN$("to give your work a personal touch.",40)
  1432. 7165  FOR K=1 TO 1500:NEXT K
  1433. 7170  GOSUB 30000         '** Textpad **
  1434. 7175  PRINT FNCEN$("We'll call it CREATIVE FUDGING.",40)
  1435. 7180  FOR K=1 TO 1500:NEXT K
  1436. 7185  GOSUB 30000         '** Textpad **
  1437. 7190  PRINT FNCEN$("Take PIG's tail and FUDGE it,",40)
  1438. 7195  FOR K=1 TO 1500:NEXT K
  1439. 7200  GOSUB 30000         '** Textpad **
  1440. 7205  PRINT FNCEN$("SO!",40)
  1441. 7210  FOR K=1 TO 1500:NEXT K
  1442. 7215  FOR K=1 TO 15
  1443. 7220  LINE(219,91)-(229,99)
  1444. 7225  LINE-(237,91)
  1445. 7230  LINE-(219,91)
  1446. 7235  FOR M=1 TO 25:NEXT M
  1447. 7240  LINE(219,91)-(229,99),0
  1448. 7245  LINE-(237,91),0
  1449. 7250  LINE-(219,91),0
  1450. 7255  NEXT K
  1451. 7260  PAINT(228,95),0
  1452. 7265  PSET(227,98),0:PSET(228,99),0
  1453. 7270  LINE(218,90)-(233,90),3
  1454. 7275  LINE-(225,96),3
  1455. 7280  LINE-(218,90)
  1456. 7285  PAINT(225,93),3
  1457. 7290  LINE(207,120)-(217,91),3
  1458. 7295  FOR K=1 TO 750:NEXT K
  1459. 7300  GOSUB 30000         '** Textpad **
  1460. 7305  PRINT FNCEN$("Press <R> to review.",40)
  1461. 7310  FOR K=1 TO 1000:NEXT K
  1462. 7315  PRINT FNCEN$("Press <C> to continue.",40)
  1463. 7320  A$=INKEY$:IF A$="" GOTO 7320
  1464. 7325  IF A$="r" OR A$="R" GOTO 7340
  1465. 7330  IF A$="c" OR A$="C" GOTO 7430
  1466. 7335  GOTO 7300
  1467. 7340  FOR A=0 TO 20
  1468. 7345  OUT 66,A:OUT 66,A
  1469. 7350  OUT 97,(INP(97) OR 3)
  1470. 7355  NEXT A
  1471. 7360  SOUND 37,0
  1472. 7365  LINE(218,90)-(233,90),0
  1473. 7370  LINE-(225,96),0
  1474. 7375  LINE-(218,90),0
  1475. 7380  PAINT(225,93),0
  1476. 7385  LINE(206,81)-(250,120)
  1477. 7390  LINE-(206,120)
  1478. 7395  PAINT(230,110)
  1479. 7400  LINE(227,100)-(207,120),0
  1480. 7405  LINE-(238,110),0
  1481. 7410  GOSUB 30000   '** Textpad **
  1482. 7415  PRINT FNCEN$("* Review *",40)
  1483. 7420  FOR K=1 TO 1500:NEXT K
  1484. 7425  GOTO 6785
  1485. 7430  LINE(207,120)-(217,91)
  1486. 7435  GOSUB 30000         '** Textpad **
  1487. 7440  PRINT FNCEN$("Our final folds are for PIG's snout.",40)
  1488. 7445  FOR K=1 TO 1500:NEXT K
  1489. 7450  GOSUB 30000         '** Textpad **
  1490. 7455  PRINT FNCEN$("We first fold and backfold this corner",40)
  1491. 7460  FOR K=1 TO 750:NEXT K
  1492. 7465  FOR K=1 TO 15
  1493. 7470  PSET(70,128):DRAW"G5R4D7R2U7R4H5"
  1494. 7475  PAINT(70,134)
  1495. 7480  FOR M=1 TO 25:NEXT M
  1496. 7485  CIRCLE(70,134),7,0
  1497. 7490  PAINT(70,134),0
  1498. 7495  NEXT K
  1499. 7500  FOR K=1 TO 750:NEXT K
  1500. 7505  GOSUB 30000         '** Textpad **
  1501. 7510  PRINT FNCEN$("up to here",40)
  1502. 7515  FOR K=1 TO 750:NEXT K
  1503. 7520  FOR K=1 TO 15
  1504. 7525  PSET(115,72):DRAW"E5L4U7L2D7L4F5"
  1505. 7530  PAINT(115,66)
  1506. 7535  FOR M=1 TO 25:NEXT M
  1507. 7540  CIRCLE(115,66),7,0
  1508. 7545  PAINT(115,66),0
  1509. 7550  NEXT K
  1510. 7555  FOR K=1 TO 750:NEXT K
  1511. 7560  GOSUB 30000         '** Textpad **
  1512. 7565  PRINT FNCEN$("across this line",40)
  1513. 7570  FOR K=1 TO 750:NEXT K
  1514. 7575  LINE(93,100)-(113,120),0
  1515. 7580  FOR K=1 TO 750:NEXT K
  1516. 7585  FOR Q=0 TO 23
  1517. 7590  LINE(113,120)-(70+Q,120-0.87*Q),0
  1518. 7595  LINE-(93,100),0
  1519. 7600  LINE(113,120)-(69+Q,120-0.87*Q),0
  1520. 7605  LINE-(93,100),O
  1521. 7610  NEXT Q
  1522. 7615  FOR Q=0 TO 20
  1523. 7620  LINE(113,120)-(93+Q,100-Q),0
  1524. 7625  LINE-(93,100),0
  1525. 7630  LINE(113,120)-(93+Q,100-Q)
  1526. 7635  LINE-(93,100)
  1527. 7640  NEXT Q
  1528. 7645  FOR K=1 TO 750:NEXT K
  1529. 7650  GOSUB 30000   '*** <Textpad> ***
  1530. 7655  PRINT FNCEN$("and back!",40)
  1531. 7660  FOR K=1 TO 750:NEXT K
  1532. 7665  FOR Q=0 TO 20
  1533. 7670  LINE(113,120)-(113-Q,80+Q),0
  1534. 7675  LINE-(93,100),0
  1535. 7680  LINE(113,120)-(113-Q,80+Q)
  1536. 7685  LINE-(93,100)
  1537. 7690  LINE(69,120)-(114,80),0
  1538. 7695  LINE(113,80)-(110,83),0
  1539. 7700  NEXT Q
  1540. 7705  FOR Q=0 TO 23
  1541. 7710  LINE(113,120)-(93-Q,100+0.87*Q)
  1542. 7715  LINE-(93,100)
  1543. 7720  LINE(113,120)-(94-Q,100+0.87*Q)
  1544. 7725  LINE-(93,100)
  1545. 7730  LINE(113,120)-(93,100),0
  1546. 7735  LINE(69,120)-(114,80),0
  1547. 7740  NEXT Q
  1548. 7745  FOR K=1 TO 750:NEXT K
  1549. 7750  GOSUB 30000   '*** <Textpad> ***
  1550. 7755  PRINT FNCEN$("Your turn to fold and backfold.",40)
  1551. 7760  FOR K=1 TO 1500:NEXT K
  1552. 7765  GOSUB 30000
  1553. 7770  PRINT FNCEN$("Press <R> to review.",40)
  1554. 7775  FOR K=1 TO 1000:NEXT K
  1555. 7780  PRINT FNCEN$("Press <C> to continue.",40)
  1556. 7785  A$=INKEY$:IF A$="" GOTO 7785
  1557. 7790  IF A$="r" OR A$="R" GOTO 7805
  1558. 7795  IF A$="c" OR A$="C" GOTO 7855
  1559. 7800  GOTO 7765
  1560. 7805  FOR A=0 TO 20
  1561. 7810  OUT 66,A:OUT 66,A
  1562. 7815  OUT 97,(INP(97) OR 3)
  1563. 7820  NEXT A
  1564. 7825  SOUND 37,0
  1565. 7830  LINE(93,100)-(113,120)
  1566. 7835  GOSUB 30000
  1567. 7840  PRINT FNCEN$("* Review *",40)
  1568. 7845  FOR K=1 TO 1500:NEXT K
  1569. 7850  GOTO 7435
  1570. 7855  GOSUB 30000   '*** <Textpad> ***
  1571. 7860  PRINT FNCEN$("Our final fold is preparatory",40)
  1572. 7865  FOR K=1 TO 1500:NEXT K
  1573. 7870  GOSUB 30000   '*** <Textpad> ***
  1574. 7875  PRINT FNCEN$("to a POCKET FOLD",40)
  1575. 7880  FOR K=1 TO 1500:NEXT K
  1576. 7885  GOSUB 30000   '*** <Textpad> ***
  1577. 7890  PRINT FNCEN$("and folds and backfolds this corner",40)
  1578. 7895  FOR K=1 TO 750:NEXT K
  1579. 7900  FOR K=1 TO 15
  1580. 7905  PSET(70,128):DRAW"G5R4D7R2U7R4H5"
  1581. 7910  PAINT(70,134)
  1582. 7915  FOR M=1 TO 25:NEXT M
  1583. 7920  CIRCLE(70,134),7,0
  1584. 7925  PAINT(70,134),0
  1585. 7930  NEXT K
  1586. 7935  FOR K=1 TO 750:NEXT K
  1587. 7940  GOSUB 30000         '** Textpad **
  1588. 7945  PRINT FNCEN$("up to this point",40)
  1589. 7950  FOR K=1 TO 750:NEXT K
  1590. 7955  FOR K=1 TO 15
  1591. 7960  CIRCLE(81,90),5
  1592. 7965  LINE(79,90)-(83,90)
  1593. 7970  LINE(81,88)-(81,92)
  1594. 7975  FOR M=1 TO 25:NEXT M
  1595. 7980  CIRCLE(81,90),5,0
  1596. 7985  LINE(79,90)-(83,90),0
  1597. 7990  LINE(81,88)-(81,92),0
  1598. 7995  NEXT K
  1599. 8000  FOR K=1 TO 750:NEXT K
  1600. 8005  GOSUB 30000         '** Textpad **
  1601. 8010  PRINT FNCEN$("over this line,",40)
  1602. 8015  FOR K=1 TO 750:NEXT K
  1603. 8020  LINE(113,120)-(81,110),0
  1604. 8025  FOR K=1 TO 750:NEXT K
  1605. 8030  GOSUB 30000   '*** <Textpad> ***
  1606. 8035  PRINT FNCEN$("SO!",40)
  1607. 8040  FOR K=1 TO 750:NEXT K
  1608. 8045  FOR Q=1 TO 11
  1609. 8050  LINE(113,120)-(70+Q,120-0.91*Q)
  1610. 8055  LINE-(81,110)
  1611. 8060  LINE(113,120)-(70+Q,120-0.91*Q),0
  1612. 8065  LINE(70,120)-(110,120),0
  1613. 8070  FOR M=1 TO 10:NEXT M
  1614. 8075  PSET(77,113),0:PSET(76,114),0:PSET(82,111),0:PSET(81,113),0:PSET(80,114),0
  1615. 8080  NEXT Q
  1616. 8085  FOR Q=0 TO 20
  1617. 8090  LINE(113,120)-(81,110-Q),0
  1618. 8095  LINE-(81,110),0
  1619. 8100  LINE(113,120)-(81,110-Q)
  1620. 8105  LINE-(81,110)
  1621. 8110  FOR M=1 TO 10:NEXT M
  1622. 8115  NEXT Q
  1623. 8120  LINE(113,120)-(93,100)
  1624. 8125  LINE(113,120)-(81,90),0
  1625. 8130  FOR K=1 TO 750:NEXT K
  1626. 8135  GOSUB 30000   '*** <Textpad> ***
  1627. 8140  PRINT FNCEN$("and return!",40)
  1628. 8145  FOR K=1 TO 750:NEXT K
  1629. 8150  FOR Q=0 TO 20
  1630. 8155  LINE(93,100)-(81,90+Q),0
  1631. 8160  LINE-(81,110),0
  1632. 8165  FOR M=1 TO 10:NEXT M
  1633. 8170  NEXT Q
  1634. 8175  FOR Q=0 TO 11
  1635. 8180  LINE(113,120)-(81-Q,110+0.91*Q)
  1636. 8185  LINE(113,120)-(81,110),0
  1637. 8190  NEXT Q
  1638. 8195  LINE(113,81)-(70,120)
  1639. 8200  LINE(84,108)-(93,100)
  1640. 8205  LINE(81,110)-(113,120)
  1641. 8210  LINE-(92,100)
  1642. 8215  PSET(80,114):PSET(81,113):PSET(82,111)
  1643. 8220  LINE(103,111)-(105,113)
  1644. 8225  LINE(93,100)-(113,120),0
  1645. 8230  LINE-(81,110),0
  1646. 8235  FOR K=1 TO 750:NEXT K
  1647. 8240  GOSUB 30000   '*** <Textpad> ***
  1648. 8245  PRINT FNCEN$("Your turn to fold and backfold.",40)
  1649. 8250  FOR K=1 TO 1500:NEXT K
  1650. 8255  GOSUB 30000
  1651. 8260  PRINT FNCEN$("Press <R> to review.",40)
  1652. 8265  FOR K=1 TO 1000:NEXT K
  1653. 8270  PRINT FNCEN$("Press <C> to continue.",40)
  1654. 8275  A$=INKEY$:IF A$="" GOTO 8275
  1655. 8280  IF A$="r" OR A$="R" GOTO 8295
  1656. 8285  IF A$="c" OR A$="C" GOTO 8345
  1657. 8290  GOTO 8255
  1658. 8295  FOR A=0 TO 20
  1659. 8300  OUT 66,A:OUT 66,A
  1660. 8305  OUT 97,(INP(97) OR 3)
  1661. 8310  NEXT A
  1662. 8315  SOUND 37,0
  1663. 8320  LINE(113,120)-(81,110)
  1664. 8325  GOSUB 30000
  1665. 8330  PRINT FNCEN$("* Review *",40)
  1666. 8335  FOR K=1 TO 1500:NEXT K
  1667. 8340  GOTO 7855
  1668. 8345  GOSUB 30000         '** Textpad **
  1669. 8350  PRINT FNCEN$("And here's the pocket,",40)
  1670. 8355  FOR K=1 TO 750:NEXT K
  1671. 8360  LINE(115,80)-(93,100),0
  1672. 8365  LINE-(70,120),0
  1673. 8370  LINE-(91,100)
  1674. 8375  LINE-(115,80)
  1675. 8380  FOR K=1 TO 250:NEXT K
  1676. 8385  FOR K=1 TO 15
  1677. 8390  PSET(90,95):DRAW"U8G3H6G2F6G3R8"
  1678. 8395  PAINT(85,90)
  1679. 8400  FOR M=1 TO 25:NEXT M
  1680. 8405  CIRCLE(85,90),9,0
  1681. 8410  PAINT(85,90),0
  1682. 8415  NEXT K
  1683. 8420  FOR K=1 TO 750:NEXT K
  1684. 8425  GOSUB 30000         '** Textpad **
  1685. 8430  PRINT FNCEN$("and in we go!",40)
  1686. 8435  FOR K=1 TO 750:NEXT K
  1687. 8440  LINE(115,80)-(93,100)
  1688. 8445  LINE-(70,120)
  1689. 8450  LINE-(91,100),0
  1690. 8455  LINE-(115,80),0
  1691. 8460  LINE(69,120)-(114,80),0
  1692. 8465  FOR Q=1 TO 11
  1693. 8470  LINE(113,120)-(70+Q,120-0.91*Q)
  1694. 8475  LINE-(81,110)
  1695. 8480  LINE(113,120)-(70+Q,120-0.91*Q),0
  1696. 8485  LINE(70,120)-(110,120),0
  1697. 8490  FOR M=1 TO 10:NEXT M
  1698. 8495  PSET(77,113),0:PSET(76,114),0:PSET(82,111),0:PSET(81,113),0:PSET(80,114),0
  1699. 8500  NEXT Q
  1700. 8505  FOR Q=0 TO 20
  1701. 8510  LINE(113,120)-(81,110-Q),1
  1702. 8515  LINE-(81,110),1
  1703. 8520  LINE(113,120)-(81,110-Q)
  1704. 8525  LINE-(81,110)
  1705. 8530  LINE(69,120)-(115,80),0
  1706. 8535  FOR M=1 TO 10:NEXT M
  1707. 8540  NEXT Q
  1708. 8545  LINE(113,120)-(93,100),1
  1709. 8550  FOR K=1 TO 750:NEXT K
  1710. 8555  LINE(113,120)-(93,100)
  1711. 8560  FOR K=1 TO 750:NEXT K
  1712. 8565  GOSUB 30000
  1713. 8570  PRINT FNCEN$("Press <R> to review.",40)
  1714. 8575  FOR K=1 TO 1000:NEXT K
  1715. 8580  PRINT FNCEN$("Press <C> to continue.",40)
  1716. 8585  A$=INKEY$:IF A$="" GOTO 8585
  1717. 8590  IF A$="r" OR A$="R" GOTO 8625
  1718. 8595  IF A$="c" OR A$="C" GOTO 8690
  1719. 8600  GOTO 8565
  1720. 8605  FOR A=0 TO 20
  1721. 8610  OUT 66,A:OUT 66,A
  1722. 8615  OUT 97,(INP(97) OR 3)
  1723. 8620  NEXT A
  1724. 8625  SOUND 37,0
  1725. 8630  LINE(81,110)-(81,90),0
  1726. 8635  LINE-(92,99),0
  1727. 8640  PAINT(85,100),0
  1728. 8645  LINE(113,82)-(70,120)
  1729. 8650  LINE-(113,120)
  1730. 8655  PAINT(80,115)
  1731. 8660  LINE(93,100)-(113,120),0
  1732. 8665  LINE-(81,110),0
  1733. 8670  GOSUB 30000
  1734. 8675  PRINT FNCEN$("* Review *",40)
  1735. 8680  FOR K=1 TO 1500:NEXT K
  1736. 8685  GOTO 8345
  1737. 8690  GOSUB 30000         '** Textpad **
  1738. 8695  PRINT FNCEN$("And open up!",40)
  1739. 8700  FOR K=1 TO 1000:NEXT K
  1740. 8705                            '***Zapsound***
  1741. 8710  FOR A=0 TO 20
  1742. 8715  OUT 66,A:OUT 66,A
  1743. 8720  OUT 97,(INP(97) OR 3)
  1744. 8725  NEXT A
  1745. 8730  SOUND 37,0
  1746. 8735                             '***End Zapsound***
  1747. 8740  CLS
  1748. 8745  LINE(130,133)-(135,131)
  1749. 8750  LINE-(140,140)
  1750. 8755  LINE-(145,126)
  1751. 8760  LINE-(150,145)
  1752. 8765  LINE-(158,128)
  1753. 8770  LINE-(154,122)
  1754. 8775  LINE-(195,105)
  1755. 8780  LINE-(200,115)
  1756. 8785  LINE-(205,100)
  1757. 8790  LINE-(220,120)
  1758. 8795  LINE-(219,94)
  1759. 8800  LINE-(230,75)
  1760. 8805  LINE-(225,70)       'tail
  1761. 8810  LINE-(230,65)       'tail
  1762. 8815  LINE-(220,65)
  1763. 8820  LINE-(215,60)
  1764. 8825  LINE-(125,75)
  1765. 8830  LINE-(105,105)
  1766. 8835  LINE-(100,105)
  1767. 8840  LINE-(90,115)
  1768. 8845  LINE-(100,125)
  1769. 8850  LINE-(130,133)
  1770. 8855  PAINT(160,100)
  1771. 8860  LINE(100,105)-(110,115),0   'snout
  1772. 8865  LINE-(100,125),0            'snout
  1773. 8870  LINE(215,60)-(130,80),0    'back
  1774. 8875  LINE-(105,105),0            'snout
  1775. 8880  LINE-(110,115),0           'snout
  1776. 8885  LINE(144,126)-(130,80),0   'front
  1777. 8890  LINE-(155,122),0           'leg
  1778. 8895  LINE(135,131)-(144,127),0  'fl
  1779. 8900  LINE(205,101)-(215,60),0   'back
  1780. 8905  LINE-(219,94),0            'leg
  1781. 8910  LINE(195,105)-(204,102),0  'bl
  1782. 8915  LINE(221,65)-(226,70),0    'tail
  1783. 8920  FOR V=105 TO 125 STEP 2
  1784. 8925  PSET(100,V),0
  1785. 8930  NEXT V
  1786. 8935  GOSUB 30000   '*** <Textpad> ***
  1787. 8940  PRINT FNCEN$("There!  Mission accomplished.",40)
  1788. 8945  FOR K=1 TO 1500:NEXT K
  1789. 8950  GOSUB 30000   '*** <Textpad> ***
  1790. 8955  PRINT FNCEN$("PIG",40)
  1791. 8960  FOR K=1 TO 1500:NEXT K
  1792. 8965  GOSUB 30000   '*** <Textpad> ***
  1793. 8970  PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
  1794. 8975  PRINT FNCEN$("<2> - To repeat PIG.",40)
  1795. 8980  PRINT FNCEN$("      <3> - To exit from program.",40)
  1796. 8985  E$=INPUT$(1)
  1797. 8990  IF E$<"1" OR E$>"3" GOTO 8990
  1798. 8995  SEL=VAL(E$)
  1799. 9000  COMMON SEL
  1800. 9005  CLS
  1801. 9010  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  1802. 9011  LINE(70,75)-(250,125),3,B
  1803. 9015  ON SEL GOTO 9020,9025,9030
  1804. 9020  CHAIN"a:main"
  1805. 9025  CHAIN"a:pig
  1806. 9030  CHAIN"a:end"
  1807. 30000  LOCATE 1,1
  1808. 30010  PRINT"                                                                                                                        "
  1809. 30020  LOCATE 1,1:RETURN
  1810. 30030  GOSUB 30000         '** Textpad **
  1811. 30040  PRINT FNCEN$("N",40)
  1812. 30050  FOR K=1 TO 1500:NEXT K
  1813.